(describe-buffer-case-table): Use aref instead of

set-char-table-range.

diff --git a/lisp/case-table.el b/lisp/case-table.el
index 823fa44abf366004a358673f1172e70e883cb575..c66f76919ae24862aec5f08703157825e2e1dad4 100644 (file)
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -45,9 +45,9 @@
   (let ((description (make-char-table 'case-table)))
     (map-char-table
      (function (lambda (key value)
-                (set-char-table-range
+                (aset
                  description key
-                 (cond ((null key)
+                 (cond ((not (natnump value))
                         "case-invariant")
                        ((/= key (downcase key))
                         (concat "uppercase, matches "